﻿Public Class Tools
    ''' <summary>
    ''' '''Metodos generales
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function fecha() As String
        Return Date.Now.ToLongDateString.ToString
    End Function

    ''' <summary>
    ''' '''Metodos para productos
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function buscarProducto() As GBDZafiro.Producto
        Dim oFrmBP As New FrmBProducto
        oFrmBP.BuscarPor = "CODIGO"
        Dim dlg As DialogResult = oFrmBP.ShowDialog()
        If dlg = DialogResult.OK Then
            Dim oProd As New GBDZafiro.Producto
            oProd = oFrmBP.oProducto
            Return oProd
            oFrmBP.Close()
            Exit Function
        End If
        Return Nothing
    End Function

    ''' <summary>
    ''' '''Metodos para empresa
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function crearEmpresa() As GBDZafiro.Empresa
        Dim dtEmp As DataTable = GBDZafiro.Empresa.ConsxPrimEmp()
        Dim empresa As New GBDZafiro.Empresa
        For Each rEmp As DataRow In dtEmp.Rows
            empresa.RAZON_SOCIAL = rEmp("RAZON_SOCIAL")
            empresa.NIT = rEmp("NIT") + "-" + rEmp("DIG_VER")
            empresa.DIRECCION = rEmp("DIRECCION")
            empresa.TELEFONO = rEmp("TELEFONO")
        Next
        Return empresa
    End Function

    ''' <summary>
    ''' '''Metodos para Traslados
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function crearMtraslado(ByRef dtmTras As DataTable) As GBDZafiro.Mtraslado
        Dim mTras As New GBDZafiro.Mtraslado
        For Each rmTraslado As DataRow In dtmTras.Rows
            mTras.NUM_TRASLADO = rmTraslado("NUM_TRASLADO")
            mTras.COD_USU_ANULA = rmTraslado("COD_USU_ANULA")
            mTras.COD_USUARIO = rmTraslado("COD_USUARIO")
            mTras.ESTADO = rmTraslado("ESTADO")
            mTras.FECHA_ANULACION = rmTraslado("FECHA_ANULACION")
            mTras.FECHA_REGISTRO = rmTraslado("FECHA_REGISTRO")
            mTras.FECHA_TRASLADO = rmTraslado("FECHA_TRASLADO")
            mTras.OBS_ANULACION = rmTraslado("OBS_ANULACION")
            mTras.OBSERVACION = rmTraslado("OBSERVACION")
        Next
        Return mTras
    End Function

    Public Function crearMTraslado(ByRef NUM_TRASLADO As String) As GBDZafiro.Mtraslado
        Dim dtmTras As DataTable
        Dim mTras As New GBDZafiro.Mtraslado
        mTras.NUM_TRASLADO = NUM_TRASLADO
        dtmTras = GBDZafiro.Mtraslado.CosnxNumTraslado(mTras)
        For Each rmTras As DataRow In dtmTras.Rows
            mTras.FECHA_TRASLADO = rmTras("FECHA_TRASLADO")
            mTras.COD_USUARIO = rmTras("COD_USUARIO")
        Next
        Return mTras
    End Function

    ''' <summary>
    ''' '''Metodos para Producto_Bodega
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function crearProdBga(ByRef codProd As String, ByRef bga As String) As GBDZafiro.ProductoBodega
        Dim prodBga As New GBDZafiro.ProductoBodega
        prodBga.codProducto = codProd
        prodBga.codBodega = bga

        Dim dtProdBga As DataTable = GBDZafiro.ProductoBodega.consxCodProdBga(prodBga)
        For Each rProdBga As DataRow In dtProdBga.Rows
            prodBga.existencia = rProdBga("EXISTENCIA")
            prodBga.codBdProd = rProdBga("COD_BD_PROD").ToString
        Next
        Return prodBga
    End Function

    Public Function agregarProdBga(ByRef codProd As String, ByRef bga As String) As GBDZafiro.ProductoBodega
        Dim prodBga As New GBDZafiro.ProductoBodega

        prodBga.codProducto = codProd
        prodBga.codBodega = bga
        prodBga.existencia = 0
        prodBga.codBdProd = bga + "-" + codProd

        GBDZafiro.ProductoBodega.Nuevo(prodBga)
        Return prodBga
    End Function

    ''' <summary>
    ''' '''Metodos para Usuarios
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function crearUsuario(ByRef COD_USUARIO As String) As GBDZafiro.Usuario
        Dim dtUsuario As DataTable
        Dim usuario As New GBDZafiro.Usuario
        dtUsuario = GBDZafiro.Usuario.ConsxCodUsuario(COD_USUARIO)
        For Each rUsuario As DataRow In dtUsuario.Rows
            usuario.codUsuario = rUsuario("COD_USUARIO")
            usuario.nomUsuario = rUsuario("NOM_USUARIO")
            usuario.perfil = rUsuario("PERFIL")
        Next

        Return usuario
    End Function

   
End Class
